%!PS
42 42 scale 3 15 translate 2 setlinecap .1 setlinewidth .8 setgray
1 1 6 { 0 moveto 0 2 rlineto } for
1 0 moveto 6 1 1 270 90 arc 2 2 lineto
0 1 moveto 7 1 lineto stroke 0 setgray
2 2 moveto 1 1 1 90 270 arc 2 0 lineto 2 1 lineto 1 1 lineto
3 0 moveto 3 2 lineto 4 2 lineto 4 0 moveto 4 1 lineto
5 0 moveto 5 2 lineto 6 2 lineto 6 0 lineto
stroke showpage
